i forgot to write the part to create the files for the 1st 2 rounds
run3=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness3.txt",header=T)
run4=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness4.txt",header=T)
run5=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness5.txt",header=T)
run6=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness6.txt",header=T)
run7=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness7.txt",header=T)
run8=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness8.txt",header=T)
run9=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness9.txt",header=T)
run10=read.table(file="C:\\Users\\user\\Desktop\\help\\add_met\\compute_fitness10.txt",header=T)
create a dataframe with all the peptides: remember there will be duplicate seq
index=1:800
summary_hsp70_z=c(rep(3,100),rep(4,100),rep(5,100),rep(6,100),rep(7,100),rep(8,100),rep(9,100),rep(10,100))
dataset_met3_10=rbind(run3,run4,run5,run6,run7,run8,run9,run10)
dataset_met3_10$index=index
dataset_met3_10$run=summary_hsp70_z
fig <- plot_ly(
dataset_met3_10, x = ~index, y = ~Interaction_Energy,
# Hover text:
text = ~paste("run: ", run, '\n', 'Interaction Energy:', Interaction_Energy,'\n',"peptides_seq: ", peptideseq),
color = ~as.factor(dataset_met3_10$run)
)
fig
## No trace type specified:
## Based on info supplied, a 'scatter' trace seems appropriate.
## Read more about this trace type -> https://plotly.com/r/reference/#scatter
## No scatter mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plotly.com/r/reference/#scatter-mode